﻿Imports CalificadorPremiosOscarDAL.pcs.dao
Namespace pcs.dao
    Public Class TipoVotanteDAO
        Inherits DAOBase

        Public Function ObtenerTipoVotantes() As System.Linq.IQueryable(Of Tipo_Votante)
            Return (From r In Entitie.Tipo_Votante Select r)
        End Function

        Public Function ObtenerTipoVotantes(ByVal id_votante As String) As Tipo_Votante
            Return (From r In Entitie.Tipo_Votante Where r.id_tipo_votante = id_votante Select r).FirstOrDefault()
        End Function

        Public Sub AgregarTipoVotante(ByVal tipoVotante As Tipo_Votante)
            Entitie.Tipo_Votante.AddObject(tipoVotante)
            Try
                Entitie.SaveChanges()
            Catch ex As Exception
                Throw ex
            End Try
        End Sub

        Public Sub ModificarTipoVotante(ByVal tipoVotante As Tipo_Votante)
            Try
                Dim tv As Tipo_Votante = (From r In Entitie.Tipo_Votante Where r.id_tipo_votante = tipoVotante.id_tipo_votante Select r).FirstOrDefault()
                tv.nombre_tipo_votante = tipoVotante.nombre_tipo_votante
                tv.descripcion_tipo_votante = tipoVotante.descripcion_tipo_votante
                Entitie.SaveChanges()
            Catch ex As Exception
                Throw ex
            End Try
        End Sub

        Public Sub EliminarTipoVotante(ByVal tipoVotante As Tipo_Votante)
            Entitie.Tipo_Votante.DeleteObject(tipoVotante)
            Try
                Entitie.SaveChanges()
            Catch ex As Exception
                Throw ex
            End Try
        End Sub

    End Class
End Namespace

